10 SCREEN 1,,0:WIDTH 32 : KEY OFF: COLOR 15,0,0
20 LOCATE0,1: PRINT"REDEFINIENDO CARACTERES"
30 LOCATE4,6: PRINT"0123456789  abyz ":LOCATE4,8:PRINT CHR$(129)+" "+CHR$(137)+" "+CHR$(145)+" "+CHR$(252)
40 LOCATE0,21: PRINT"APROVECHA AHORA PARA HACER PIS "+CHR$(129)
50 FOR I=776 TO 783: READ A: VPOKE I,A: NEXT I
60 FOR I=784 TO 791: READ A: VPOKE I,A: NEXT I
70 FOR I=968 TO 975: READ A: VPOKE I,A: NEXT I
80 FOR I=976 TO 983: READ A: VPOKE I,A: NEXT I
90 FOR I=1032 TO 1039: READ A: VPOKE I,A: NEXT I
100 FOR I=1096 TO 1103: READ A: VPOKE I,A: NEXT I
110 FOR I=1160 TO 1167: READ A: VPOKE I,A: NEXT I
120 FOR I=2016 TO 2023: READ A: VPOKE I,A: NEXT I
121 FOR I=992 TO 999:  READ A: VPOKE I,A: NEXT I
130 FOR I=0 TO 7: READ A: VPOKE I,A: NEXT I
140 FOR I=368 TO 375: READ A: VPOKE I,A: NEXT I
150 FOR I=72 TO 79: READ A: VPOKE I,A: NEXT I
160 FOR I=280 TO 287: READ A: VPOKE I,A: NEXT I
161 FOR I=384 TO 463: READ B: VPOKE I,B: NEXT I
170 FOR I=520 TO 727: READ B: VPOKE I,B: NEXT I
171 LOCATE0,12: PRINT"AJUSTANDO PALETA Y ATRIBUTOS DE COLOR"
172 IF PEEK(&H2D)>0 THEN COLOR =(0,0,0,1):COLOR=(1,1,1,2):COLOR=(2,1,6,1):COLOR=(3,5,6,4):COLOR=(4,2,2,6):COLOR=(5,3,3,6):COLOR=(6,5,1,1):COLOR=(7,5,6,7)
173 IF PEEK(&H2D)>0 THEN COLOR=(8,6,2,2):COLOR=(9,6,3,3):COLOR =(10,6,5,1):COLOR=(11,6,6,5):COLOR=(12,1,3,1):COLOR=(13,5,2,5):COLOR=(14,5,5,5):COLOR=(15,7,7,7)
174 VPOKE 8208,128:VPOKE 8209,80:VPOKE 8210,32:VPOKE 8192,160:VPOKE 8204,224: VPOKE8197,112: VPOKE8196,64: VPOKE8198,160: VPOKE8199,160: VPOKE8223,224
910 'DATOS JUGADOR
920 DATA 0,8,24,52,121,58,84,228
930 DATA 0,16,24,44,158,92,42,39
940 DATA 213,181,115,37,74,29,8,0
950 DATA 171,173,206,164,82,184,16,0
960 'DATOS ALIENS
970 DATA 60,126,189,189,126,153,129,66
980 DATA 102,255,189,126,90,90,189,66
990 DATA 126,255,189,189,255,90,90,129
1000 DATA 129,189,126,255,219,219,126,153
1001 'DATOS FONDO & FX
1005 DATA 0,0,0,32,0,0,0,0
1010 DATA 129,66,0,0,0,0,66,129
1020 DATA 0,0,0,16,0,0,0,0
1030 DATA 8,20,42,85,34,0,0,0
1040 DATA 0,90,0,90,90,0,90,0
1050 'DATOS NUMEROS
1060 DATA 0,126,70,70,70,70,70,126
1070 DATA 0,56,56,24,24,24,24,60
1080 DATA 0,126,14,14,126,96,96,126
1090 DATA 0,126,14,14,62,14,14,126
1100 DATA 0,12,108,108,108,126,12,12
1110 DATA 0,126,96,96,126,6,6,126
1120 DATA 0,126,96,96,126,102,102,126
1130 DATA 0,124,12,12,30,12,12,12
1140 DATA 0,126,70,70,126,70,70,126
1150 DATA 0,126,70,70,126,6,6,6
1155 'DATOS CARACTERES
1160 DATA 0,60,70,70,70,126,70,70
1170 DATA 0,124,70,70,124,70,70,124
1180 DATA 0,62,96,96,96,96,96,62
1190 DATA 0,124,70,70,70,70,70,124
1200 DATA 0,126,96,96,126,96,96,126
1210 DATA 0,126,96,96,124,96,96,96
1220 DATA 0,126,64,64,94,70,70,126
1230 DATA 0,70,70,70,126,70,70,70
1240 DATA 0,126,24,24,24,24,24,126
1250 DATA 0,126,6,6,6,6,6,124
1260 DATA 0,70,70,70,124,70,70,70
1270 DATA 0,96,96,96,96,96,96,126
1280 DATA 0,126,86,86,86,70,70,70
1290 DATA 0,124,70,70,70,70,70,70
1300 DATA 0,60,70,70,70,70,70,60
1310 DATA 0,124,70,70,70,124,64,64
1320 DATA 0,60,70,70,70,74,68,58
1330 DATA 0,124,70,70,70,124,70,70
1340 DATA 0,60,66,64,60,6,70,60
1350 DATA 0,126,24,24,24,24,24,24
1360 DATA 0,70,70,70,70,70,70,60
1370 DATA 0,70,70,70,70,70,44,24
1380 DATA 0,70,70,86,86,86,126,44
1390 DATA 0,70,70,44,24,44,70,70
1400 DATA 0,70,70,70,44,24,24,24
1410 DATA 0,126,6,12,24,48,96,126

2000 LOCATE0,17:PRINT"AJUSTES COMPLETADOS":FORI=0TO1000:NEXTI:CLS:RUN"TDROP"


